Belgian Amiga Club - ADF Collection/BS1 part 05.zip/BS1 part 5/SASC_6.0_Disk_1.adf/Install-SASC

Text File | 1992-07-30 | 55KB | 1,593 lines

; script to install 6.0 Compiler
; Should be run from WorkBench by double-clicking on the icon
; Requires a stack of 16000 bytes or more

(complete 0)

(set @default-dest "Work:")

(set version (/ (getversion) 65536))
(set version2 36)

(set answer1
        (askchoice
                (prompt "Choose where to install 6.0 Compiler")
                (choices "Hard Disk" "Floppy Disk")
         (help "Selecting Hard Disk will install the 6.0 compiler on the "
            "hard disk.  You will be asked what directory or partition you "
            "would like to install it on.  The default is Work:.  A directory "
            "called 'SC' will be placed in the directory you choose. \n\n"
            "Selecting Floppy Disk will install the 6.0 compiler on "
            "a set of 2 (or optionally 3) floppy disks.\n"
         )
                (default 0)
        )
)

(if (= answer1 0)
  (
     ; install on hard disk
     (set dest2 (askdir  (prompt "Select the location to install the SC directory")
                          (default @default-dest)
                          (help "Choose a destination partition or directory "
                                "to contain the 6.0 compiler.  The install "
                                "program will create a directory called 'SC' "
                                "in the location you choose and copy the "
                                "compiler files to it."
                          )
                )
     )
     (set dest1 (tackon dest2 "sc"))
     (set @default-dest dest1)
     (message "Package will be installed in "
               dest1
     )
     (set error (trap 4
        (copyfiles (source "SASC_6.0_Disk_1:more") (dest "ram:"))
     ))
     (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))

     (makedir dest2 (safe) (infos))
     (makedir dest1 (safe) (infos))
     (makedir ("%s/env" dest1) (safe))
     (makedir ("%s/lib" dest1) (safe))
     (makedir ("%s/include" dest1) (safe))
     (makedir "env:sc" (safe))


     (if (>= version version2)
        (makedir "envarc:sc" (safe))
     )

     (set parts
          (askoptions
             (prompt "Choose the items you would like installed")
             (choices "Compiler"
                     "Optimizers"
                     "Assembler and Assembler Header Files"
                     "Debugger"
                     "Cross Debugger"
                     "Extra Utilities"
                     "Examples and Source"
                     "On-Line Help System"
             )
             (help "You may choose to install only part of the development system.  "
                   "If you do not install all parts, you will not be able to use "
                   "certain features.  You can choose to install those parts later "
                   "by rerunning this install program and selecting the new "
                   "parts at this point.  The parts you can choose to install "
                   "are:\n\n"

                   "Compiler - \nSelecting this item installs the pieces of the "
                   "system that must be present to compile any file.  You should "
                   "always select this item the first time you install the "
                   "product.\n\n"

                   "Optimizers - \nSelecting this item installs the Global Optimizer "
                   "and the Peephole Optimizer.  The optimizers are not required for "
                   "compiling, but do produce significantly smaller and faster code.\n\n"

                   "Assembler and Assembler Header Files - \nSelecting this item "
                   "installs the SAS/C Assembler and Assembler-language header "
                   "files.  The assembler is not required for compiling pure C "
                   "language code.\n\n"

                   "Debugger -\nSelecting this item installs the CPR debugger.\n\n"

                   "Cross Debugger -\nSelecting this item installs the "
                   "Amiga-to-Amiga cross version of the CPR debugger.  If you "
                   "have two or more Amigas and want to debug programs using the "
                   "serial port or a network, select this option.\n\n"

                   "Extra Utilities -\nSelecting this item installs the helpful "
                   "but nonessential utilities that come with the SAS/C Development "
                   "System.  These utilities include scompact, scsetup, cover, gst, "
                   "omd, dumpobj, hypergst, diff, grep, lstat, lprof, fd2pragma, "
                   "oml, splat, tb and sc5.\n\n"

                   "On-Line Help System -\nSelecting this item installs the "
                   "Commodore shared library 'AmigaGuide.library' in your "
                   "LIBS: drawer, installs the 'AmigaGuide' hypertext "
                   "browser, and installs several AmigaGuide documents that "
                   "are used as online help for the various utilities.\n\n"
             )
          )
      )


      (if (IN parts 0)
          (set CHeaders
               (askchoice
                   (prompt "Install what type of C header files")
                   (choices "Normal C Header Files"
                            "Compressed C Header Files"
                   )
                   (help "Normal C header files have comments and formatting "
                         "space that make them more human-readable, but "
                         "take up extra space.  Compressed C header files "
                         "take up much less space than normal files, but "
                         "you cannot browse them in a text editor and "
                         "read the author's comments.\n\n"
                         "If you do not have much hard disk space, select "
                         "compressed header files.  If you have enough space, "
                         "select normal header files."
                   )
               )
           )
      )

      (if (IN parts 0)
           (set libraries
                (askoptions
                     (prompt "Choose the libraries you would like installed")
                     (choices "Standard Libraries"
                              "Short Integer Libraries"
                              "No Base Register Libraries"
                              "Short Integer, No Base Register Libraries"
                              "IEEE Math Libraries"
                              "68881 Math Libraries"
                              "Fast Floating Point Libraries"
                     )
                     (help  "You may choose to install only some of the "
                            "link libraries.  If you do not install a "
                            "particular library, you will not be able to "
                            "use the set of compiler options that require "
                            "that library.  You can choose to install a "
                            "set of libraries later by rerunning this "
                            "install program and selecting the new libraries.  "
                            "The libraries available are:\n\n"

                            "Standard Libraries -\nThese are used by the compiler's "
                            "default options.  You should always select this item "
                            "the first time you run the install program.\n\n"

                            "Short Integer Libraries -\nThese libraries are required "
                            "if you use the SHORTINT compiler option to make the "
                            "length of an 'int' variable two bytes instead of four.\n\n"

                            "No Base Register Libraries -\nThese libraries are "
                            "required if you use the DATA=FAR or DATA=FARONLY "
                            "compiler options to access data using 32-bit "
                            "references.\n\n"

                            "Short Integer, No Base Register Libraries -\nThese "
                            "libraries are required if you use both the SHORTINT and "
                            "DATA=FAR or DATA=FARONLY options.\n\n"

                            "IEEE Math Libraries -\nThese libraries are required if "
                            "you use the MATH=IEEE compiler option.  They use "
                            "the Commodore-supplied shared libararies "
                            "to perform mathematical functions using IEEE-format "
                            "floating point numbers.\n\n"

                            "68881 math libraries -\nThese libraries are required if "
                            "you ue the MATH=68881 compiler option.  MATH=68881 tells "
                            "the compiler to generate in-line code for the 68881 "
                            "math coprocessor chip.  Code compiled with MATH=68881 "
                            "will only run on an Amiga with a coprocessor installed.\n\n"

                            "Fast Floating Point Libraries -\nThese libraries are "
                            "required if you use the MATH=FFP compiler option.  They "
                            "use the Commodore-supplied shared "
                            "library to perform mathematical functions using "
                            "Motorola Fast Floating Point format floating point "
                            "numbers.\n\n"
                     )
                 )
           )
      )

(complete 5)
; Disk 1
      (if (IN parts 0)
        (
          (set error (trap 4
             (copyfiles
                (source "SASC_6.0_Disk_1:Compiler")
                    (dest dest1)
                    (all)
             )
          ))
          (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))

          (set error (trap 4
             (copyfiles
              (source "SASC_6.0_Disk_1:Read.me")
                    (dest dest1)
             )
          ))
          (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))

        )
      )

(complete 20)
; Disk 2
     (set libdest (tackon dest1 "lib"))

     (if (IN parts 0)
      (
        (askdisk (dest "SASC_6.0_Disk_2")
                 (prompt "Please Insert Disk 2 of the SAS/C Development System")
                 (help "Insert Disk 2 in any drive. You may remove "
                       "Disk 1. It will not be needed again.")
        )

        (if (IN libraries 0)
          (
           ;Standard Libs
           (set error (trap 4
              (copyfiles (source "SASC_6.0_Disk_2:Libraries/lib/sc.lib")
                      (dest libdest)
              )
           ))
           (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))

           (set error (trap 4
              (copyfiles (source "SASC_6.0_Disk_2:Libraries/lib/scm.lib")
                      (dest libdest)
              )
           ))
           (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))
          )
        )

        (if (IN libraries 1)
           ;Short Libs
          (
           (set error (trap 4
              (copyfiles (source "SASC_6.0_Disk_2:Libraries/lib/scs.lib")
                      (dest libdest)
              )
           ))
           (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))

           (set error (trap 4
              (copyfiles (source "SASC_6.0_Disk_2:Libraries/lib/scms.lib")
                      (dest libdest)
              )
           ))
           (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))
          )
        )

        (if (IN libraries 2)
           ;No Base Libs
          (
           (set error (trap 4
              (copyfiles (source "SASC_6.0_Disk_2:Libraries/lib/scnb.lib")
                      (dest libdest)
              )
           ))
           (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))

           (set error (trap 4
              (copyfiles (source "SASC_6.0_Disk_2:Libraries/lib/scmnb.lib")
                      (dest libdest)
              )
           ))
           (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))
          )
        )

        (if (IN libraries 3)
           ;Short, No Base Libs
          (
           (set error (trap 4
              (copyfiles (source "SASC_6.0_Disk_2:Libraries/lib/scsnb.lib")
                      (dest libdest)
              )
           ))
           (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))

           (set error (trap 4
              (copyfiles (source "SASC_6.0_Disk_2:Libraries/lib/scmsnb.lib")
                      (dest libdest)
              )
           ))
           (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))
          )
        )

        (if (IN libraries 4)
           ;IEEE math Libs
           (set error (trap 4
              (copyfiles (source "SASC_6.0_Disk_2:Libraries/lib/scmieee.lib")
                      (dest libdest)
              )
           ))
           (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))
        )

        (if (IN libraries 5)
           ;68881 Libs
           (set error (trap 4
              (copyfiles (source "SASC_6.0_Disk_2:Libraries/lib/scm881.lib")
                      (dest libdest)
              )
           ))
           (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))
        )

        (if (IN libraries 6)
           ;FFP Libs
           (set error (trap 4
              (copyfiles (source "SASC_6.0_Disk_2:Libraries/lib/scmffp.lib")
                      (dest libdest)
              )
           ))
           (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))
        )


        (set error (trap 4
           (copyfiles (source "SASC_6.0_Disk_2:Libraries/lib")
                      (dest libdest)
                      (pattern "#?.o")
           )
        ))
        (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))

        (set error (trap 4
           (copyfiles (source "SASC_6.0_Disk_2:Libraries/lib/amiga.lib")
                      (dest libdest)
           )
        ))
        (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))
      )
     )

(complete 40)
; Disk 3
     (if (IN parts 1)
       (
         (askdisk (dest "SASC_6.0_Disk_3")
                  (prompt "Please Insert Disk 3 of the SAS/C Development System")
                  (help "Insert Disk 3 in any drive. You may remove "
                        "Disk 2. It will not be needed again")
         )
         (set error (trap 4
            (copyfiles
             (source "SASC_6.0_Disk_3:Optimizers")
                    (dest dest1)
                    (all)
            )
         ))
         (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))
       )
     )

     (if (IN parts 3)
       (
         (askdisk (dest "SASC_6.0_Disk_3")
                  (prompt "Please Insert Disk 3 of the SAS/C Development System")
                  (help "Insert Disk 3 in any drive. You may remove "
                        "Disk 2. It will not be needed again")
         )
         (set error (trap 4
            (copyfiles
             (source "SASC_6.0_Disk_3:Debugger")
                    (dest dest1)
                    (all)
            )
         ))
         (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))
       )
     )

     (if (IN parts 4)
       (
         (askdisk (dest "SASC_6.0_Disk_3")
                  (prompt "Please Insert Disk 3 of the SAS/C Development System")
                  (help "Insert Disk 3 in any drive. You may remove "
                        "Disk 2. It will not be needed again")
         )
         (set error (trap 4
            (copyfiles
             (source "SASC_6.0_Disk_3:Cross_Debugger")
                    (dest dest1)
                    (all)
            )
         ))
         (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))
       )
     )

     (if (IN parts 0)
       (
         (askdisk (dest "SASC_6.0_Disk_3")
                  (prompt "Please Insert Disk 3 of the SAS/C Development System")
                  (help "Insert Disk 3 in any drive. You may remove "
                        "Disk 2. It will not be needed again")
         )
         (if (= CHeaders 0)
            (
              (set error (trap 4
                 (copyfiles
                    (source "SASC_6.0_Disk_3:Compiler_Headers")
                    (dest dest1)
                    (all)
                 )
               ))
               (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))
            )
            ; else
            (
               (set error (trap 4
                  (copyfiles
                   (source "SASC_6.0_Disk_3:Extra_Utilities/c/scompact")
                   (dest "ram:")
                  )
               ))
               (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))

               (working "Installing compacted header files.")
               (run ("ram:scompact SASC_6.0_Disk_3:Compiler_Headers/Include %s/Include all" dest1))
            )
         )
       )
     )

     (if (IN parts 5)
       (
         (askdisk (dest "SASC_6.0_Disk_3")
                  (prompt "Please Insert Disk 3 of the SAS/C Development System")
                  (help "Insert Disk 3 in any drive. You may remove "
                        "Disk 2. It will not be needed again")
         )
         (set error (trap 4
            (copyfiles
             (source "SASC_6.0_Disk_3:Extra_Utilities")
                    (dest dest1)
                    (all)
            )
         ))
         (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))
       )
     )

(complete 60)
; Disk 4
     (if (IN parts 0)
       (
         (askdisk (dest "SASC_6.0_Disk_4")
                  (prompt "Please Insert Disk 4 of the SAS/C Development System")
                  (help "Insert Disk 4 in any drive. You may remove "
                        "Disk 3. It will not be needed again")
         )
         (if (= CHeaders 0)
            (
               (set error (trap 4
                  (copyfiles
                   (source "SASC_6.0_Disk_4:Compiler_Headers")
                       (dest dest1)
                       (all)
                  )
               ))
               (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))
            )
            ; else
            (
               (working "Installing compacted header files.")
               (run ("ram:scompact SASC_6.0_Disk_4:Compiler_Headers/Include %s/Include all" dest1))
            )
         )
       )
     )

     (if (IN parts 5)
       (
         (askdisk (dest "SASC_6.0_Disk_4")
                  (prompt "Please Insert Disk 4 of the SAS/C Development System")
                  (help "Insert Disk 4 in any drive. You may remove "
                        "Disk 3. It will not be needed again")
         )
         (set error (trap 4
            (copyfiles
             (source "SASC_6.0_Disk_4:Compiler")
                    (dest dest1)
                    (all)
            )
         ))
         (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))
       )
     )

(complete 75)
; Disk 5

     (if (IN parts 2)
       (
         (askdisk (dest "SASC_6.0_Disk_5")
                  (prompt "Please Insert Disk 5 of the SAS/C Development System")
                  (help "Insert Disk 5 in any drive. You may remove "
                        "Disk 4. It will not be needed again")
         )
         (set error (trap 4
            (copyfiles
             (source "SASC_6.0_Disk_5:Assembler")
                    (dest dest1)
                    (all)
            )
         ))
         (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))
       )
     )

     (if (IN parts 5)
       (
         (askdisk (dest "SASC_6.0_Disk_5")
                  (prompt "Please Insert Disk 5 of the SAS/C Development System")
                  (help "Insert Disk 5 in any drive. You may remove "
                        "Disk 4. It will not be needed again")
         )
         (set error (trap 4
            (copyfiles
             (source "SASC_6.0_Disk_5:Extra_Utilities")
                    (dest dest1)
                    (all)
            )
         ))
         (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))
       )
     )

(complete 85)
     (if (IN parts 7)
       (
         (askdisk (dest "SASC_6.0_Disk_6")
                  (prompt "Please Insert Disk 6 of the SAS/C Development System")
                  (help "Insert Disk 6 in any drive. You may remove "
                        "Disk 5. It will not be needed again")
         )
         (set error (trap 4
            (copyfiles
             (source "SASC_6.0_Disk_6:Online_Help")
                    (dest dest1)
                    (all)
            )
         ))
         (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))

         (copylib
             (source "SASC_6.0_Disk_6:amigaguide.library")
                    (dest "libs:")
         )
       )
     )

     (if (IN parts 5)
       (
         (askdisk (dest "SASC_6.0_Disk_6")
                  (prompt "Please Insert Disk 6 of the SAS/C Development System")
                  (help "Insert Disk 6 in any drive. You may remove "
                        "Disk 5. It will not be needed again")
         )
         (set error (trap 4
            (copyfiles
             (source "SASC_6.0_Disk_6:Extra_Utilities")
                    (dest dest1)
                    (all)
            )
         ))
         (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))

       )
     )

(complete 90)
     (if (IN parts 6)
       (
         (askdisk (dest "SASC_6.0_Disk_7")
                  (prompt "Please Insert Disk 7 of the SAS/C Development System")
                  (help "Insert Disk 7 in any drive. You may remove "
                        "Disk 6. It will not be needed again")
         )
         (set error (trap 4
            (copyfiles
             (source "SASC_6.0_Disk_7:Source_And_Examples")
                    (dest dest1)
                    (all)
            )
         ))
         (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))

       )
     )

     (if (IN parts 5)
       (
         (askdisk (dest "SASC_6.0_Disk_7")
                  (prompt "Please Insert Disk 7 of the SAS/C Development System")
                  (help "Insert Disk 7 in any drive. You may remove "
                        "Disk 6. It will not be needed again")
         )
         (set error (trap 4
            (copyfiles
             (source "SASC_6.0_Disk_7:Extra_Utilities")
                    (dest dest1)
                    (all)
            )
         ))
         (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))

       )
     )

     (if (IN parts 7)
       (
         (askdisk (dest "SASC_6.0_Disk_7")
                  (prompt "Please Insert Disk 7 of the SAS/C Development System")
                  (help "Insert Disk 7 in any drive. You may remove "
                        "Disk 6. It will not be needed again")
         )
         (set error (trap 4
            (copyfiles
             (source "SASC_6.0_Disk_7:Online_Help")
                    (dest dest1)
                    (all)
            )
         ))
         (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))

       )
     )

(complete 95)
     (set string1 ("assign sc: %s" dest1))
     (makeassign "sc" dest1)
     (makeassign "lib" "sc:lib")
     (makeassign "include" "sc:include")

     (set error 1)
     (until (= error 0)
        (
           (set error (trap 4
              (startup "SAS/C"
                 (prompt ("%s\n%s\n\n%s\n%s\n%s\n%s\n\n%s"
                          "The following assigns have been created."
                          "Do you want the them and the path statement added to your startup?"
                           string1
                          "assign lib: sc:lib"
                          "assign include: sc:include"
                          "path sc:c add"
                          "NOTE: The path will not be updated until you reboot."
                          )
                 )
                 (command
                         ("assign sc: %s\n" dest1)
                         "assign lib: sc:lib\n"
                         "assign include: sc:include\n"
                         "path sc:c add"
                 )
                 (help "The SAS/C Development System requires the listed logical ASSIGN "
                       "values in order to find its files.  If you request it, the "
                       "installer will add the necessary assigns to your user-startup "
                       "script, which is run when your machine boots.  If you decide not "
                       "to allow the installer to make these changes, you will need to "
                       "make them yourself."
                 )
              )
           ))
           (if (> error 0)
              (if (or (= @ioerr 222) (or (= @ioerr 223) (= @ioerr 224)))
                 (message "Startup file is write protected. Use protect "
                         "to write enable the file, and select Proceed" )
                 ;else other type of error
                 (
                   (message "Non-Standard startup sequence detected. You must add "
                          "the following lines by hand.\n\n"
                          "    assign sc: " dest1 "\n"
                          "    assign lib: sc:lib\n"
                          "    assign include: sc:include\n"
                          "    path sc:c add"
                   )
                   (set error 0)
                 )
              )
           )
        )
     )
     (complete 99)
     (run ("run ram:more %s" (tackon dest1 "Read.Me")))
     (delete "ram:more" (safe))
  )
)

(if (= answer1 1)
  (
     ; install on floppy
     (set @default-dest "")
     (copyfiles (source "SASC_6.0_Disk_1:nl_file") (dest "ram:"))

     (set thirddisk (askbool
                   (prompt "This install procedure creates a 2 or 3 disk set of "
                           "bootable disks. The 2 disk set contains\n"
                           "Compiler, Debugger, Editor, Linker, SC.LIB, "
                           "SCM.LIB, compressed header files, and the "
                           "small version of AMIGA.LIB. \n"
                           "The third disk contains the optimizers, and "
                           "other utilities.\n"
                           "Do you want to create the third disk? "
                    )
                   (help "If you want to run the Global Optimizer, the Peephole "
                         "Optimizer, or utilities other than the compiler itself, "
                         "you should respond YES to this prompt.  If you do use "
                         "the optimizers, you may need to swap disks if you do "
                         "not have three floppy drives. \n NOTE: The optimizers "
                         "on the third disk are only accessable under AmigaDOS 2.0"
                   )
              )
         )


     (set wbdisk "Workbench2.0")
     (if (< version version2)
       (
        (makeassign "c" "ram:")
        (set wbdisk "Workbench1.3")
        (askdisk (dest wbdisk)
                 (prompt "Please insert "
                          wbdisk
                 )
                 (help "An official Workbench disk is needed "
                       "to complete this installation. It will "
                       "be used create a bootable set of disks with "
                       "the SAS/C Development System."
                 )
        )
        (copyfiles (source ("%s:%s" wbdisk "c/run")) (dest "ram:"))

       )
     )

     (askdisk (dest wbdisk)
              (prompt "Please insert "
                       wbdisk
              )
                 (help "An official Workbench disk is needed "
                       "to complete this installation. It will "
                       "be used create a bootable set of disks with "
                       "the SAS/C Development System."
                 )
     )
     (copyfiles (source ("%s:%s" wbdisk "system/format")) (dest "ram:"))
     (copyfiles (source ("%s:%s" wbdisk "c/install")) (dest "ram:"))

     (set answer5
        (askchoice
           (prompt "Select a drive that is to be used as the destination.")
           (choices "df0:" "df1:" "df2:" "df3:")
           (default 0)
           (help "You need to choose which floppy drive to use for the target "
                 "disks.  The disk that you insert will be formatted and all their "
                 "data destroyed."
           )
        )
     )
     (if (= answer5 0) (set newdisk "df0:"))
     (if (= answer5 1) (set newdisk "df1:"))
     (if (= answer5 2) (set newdisk "df2:"))
     (if (= answer5 3) (set newdisk "df3:"))
     (message ("%s%s%s%s%s%s%s%s"
               "Insert a new disk in DRIVE "
               newdisk
               ", wait for the disk light to go off, then click Proceed\n\n"
               "For the fewest number of disk swaps, leave "
               "the destination disk in drive "
               newdisk
               " and use the other drive(s) for the SAS/C disks "
               "and Workbench disk."
               )
     )

(complete 5)
     (working "Formatting disk in " newdisk )
     (run ("ram:format <ram:nl_file drive %s name SAS_1 noicons" newdisk))

     (run ("ram:install %s" newdisk))


     (if (= @pretend 1)
       (
          (makedir "ram:pretend_install" (safe))
          (makeassign "SAS_1" "ram:pretend_install" (safe))
          (makeassign "SAS_2" "ram:pretend_install" (safe))
          (makeassign "SAS_3" "ram:pretend_install" (safe))
       )
     )

(complete 15)
     (makedir "SAS_1:Libs" (safe))
     (makedir "SAS_1:C" (safe))
     (makedir "SAS_1:System" (safe))
     (makedir "SAS_1:L" (safe))
     (makedir "SAS_1:Devs" (safe))
     (makedir "SAS_1:S" (safe))
     (makedir "SAS_1:Fonts" (safe))
     (makedir "SAS_1:sc" (safe))

     (askdisk (dest wbdisk)
              (prompt "Please insert "
                       wbdisk
                      " in a drive other than "
                      newdisk
              )
                 (help "An official Workbench disk is needed "
                       "to complete this installation. It will "
                       "be used create a bootable set of disks with "
                       "the SAS/C Development System."
                 )
     )


     (set error (trap 4
       (copyfiles (source ("%s:%s" wbdisk "System.info"))
                (dest "SAS_1:")
        )
     ))
     (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))

     (set error (trap 4
        (copyfiles (source ("%s:%s" wbdisk "Shell.info"))
                (dest "SAS_1:")
        )
     ))
     (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))

     (set error (trap 4
        (copyfiles (source ("%s:%s" wbdisk "Libs/diskfont.library"))
                (dest "SAS_1:libs")
        )
     ))
     (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))

     (set error (trap 4
        (copyfiles (source ("%s:%s" wbdisk "Libs/version.library"))
                (dest "SAS_1:libs")
        )
     ))
     (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))

     (set error (trap 4
        (copyfiles (source ("%s:%s" wbdisk "C/Dir"))
                (dest "SAS_1:c")
     )
  ))
  (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))

     (set error (trap 4
        (copyfiles (source ("%s:%s" wbdisk "C/Version"))
                (dest "SAS_1:c")
        )
     ))
     (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))

     (set error (trap 4
        (copyfiles (source ("%s:%s" wbdisk "C/Delete"))
                (dest "SAS_1:c")
        )
     ))
     (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))

     (set error (trap 4
        (copyfiles (source ("%s:%s" wbdisk "C/Copy"))
                (dest "SAS_1:c")
        )
     ))
     (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))

     (set error (trap 4
        (copyfiles (source ("%s:%s" wbdisk "C/Break"))
                (dest "SAS_1:c")
        )
     ))
     (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))

     (set error (trap 4
        (copyfiles (source ("%s:%s" wbdisk "C/BindDrivers"))
                (dest "SAS_1:c")
        )
     ))
     (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))

     (set error (trap 4
        (copyfiles (source ("%s:%s" wbdisk "C/Avail"))
                (dest "SAS_1:c")
        )
     ))
     (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))

     (set error (trap 4
        (copyfiles (source ("%s:%s" wbdisk "C/Assign"))
                (dest "SAS_1:c")
        )
     ))
     (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))

     (set error (trap 4
        (copyfiles (source ("%s:%s" wbdisk "c/AddBuffers"))
                (dest "SAS_1:c")
        )
     ))
     (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))

     (set error (trap 4
        (copyfiles (source ("%s:%s" wbdisk "C/Setclock"))
                (dest "SAS_1:c")
        )
     ))
     (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))

     (set error (trap 4
        (copyfiles (source ("%s:%s" wbdisk "C/SetDate"))
                (dest "SAS_1:c")
        )
     ))
     (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))

     (set error (trap 4
        (copyfiles (source ("%s:%s" wbdisk "c/setpatch"))
                (dest "SAS_1:c")
        )
     ))
     (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))

     (set error (trap 4
        (copyfiles (source ("%s:%s" wbdisk "C/Version"))
                (dest "SAS_1:c")
        )
     ))
     (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))

     (set error (trap 4
        (copyfiles (source ("%s:%s" wbdisk "C/Rename"))
                (dest "SAS_1:c")
        )
     ))
     (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))

     (set error (trap 4
        (copyfiles (source ("%s:%s" wbdisk "C/Mount"))
                (dest "SAS_1:c")
        )
     ))
     (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))

     (set error (trap 4
        (copyfiles (source ("%s:%s" wbdisk "C/MakeDir"))
                (dest "SAS_1:c")
        )
     ))
     (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))

     (set error (trap 4
        (copyfiles (source ("%s:%s" wbdisk "C/LoadWB"))
                (dest "SAS_1:c")
        )
     ))
     (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))

     (set error (trap 4
        (copyfiles (source ("%s:%s" wbdisk "c/Execute"))
                (dest "SAS_1:c")
        )
     ))
     (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))

     (set error (trap 4
        (copyfiles (source ("%s:%s" wbdisk "Devs/MountList"))
                (dest "SAS_1:Devs")
        )
     ))
     (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))

     (set error (trap 4
        (copyfiles (source ("%s:%s" wbdisk "L/port-handler"))
                (dest "SAS_1:l")
        )
     ))
     (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))

     (set error (trap 4
        (copyfiles (source ("%s:%s" wbdisk "System/CLI"))
                (dest "SAS_1:System")
        )
     ))
     (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))


(complete 20)
     (if (>= version version2)
        (
          ; running under 2.0

          (makedir "SAS_1:Rexxc" (safe))
          (makedir "SAS_1:WBStartup" (safe))
          (makedir "SAS_1:Prefs" (safe))
          (makedir "SAS_1:Prefs/Env-Archive" (safe))

          (set error (trap 4
             (copyfiles (source ("%s:%s" wbdisk "Libs/iffparse.library"))
                     (dest "SAS_1:libs")
             )
          ))
          (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))

          (set error (trap 4
             (copyfiles (source ("%s:%s" wbdisk "Libs/asl.library"))
                     (dest "SAS_1:libs")
             )
          ))
          (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))

          (set error (trap 4
             (copyfiles (source ("%s:%s" wbdisk "WBStartup/Mode_Names.info"))
                     (dest "SAS_1:WBStartup")
             )
          ))
          (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))

          (set error (trap 4
             (copyfiles (source ("%s:%s" wbdisk "C/conclip"))
                (dest "SAS_1:c")
             )
          ))
          (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))

          (set error (trap 4
             (copyfiles (source ("%s:%s" wbdisk "C/Wait"))
                     (dest "SAS_1:c")
             )
          ))
          (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))

          (set error (trap 4
             (copyfiles (source ("%s:%s" wbdisk "C/IPrefs"))
                     (dest "SAS_1:c")
             )
          ))
          (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))

          (set error (trap 4
             (copyfiles (source ("%s:%s" wbdisk "Devs/system-configuration"))
                     (dest "SAS_1:devs")
             )
          ))
          (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))

          (set error (trap 4
             (copyfiles (source ("%s:%s" wbdisk "Devs/printer.device"))
                     (dest "SAS_1:devs")
             )
          ))
          (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))

          (set error (trap 4
             (copyfiles (source ("%s:%s" wbdisk "L/queue-handler"))
                     (dest "SAS_1:l")
             )
          ))
          (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))

          (set error (trap 4
             (copyfiles (source ("%s:%s" wbdisk "System/CLI.info"))
                     (dest "SAS_1:System")
             )
          ))
          (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))

          (set error (trap 4
             (copyfiles (source ("%s:%s" wbdisk "System/bindmonitor"))
                     (dest "SAS_1:System")
             )
          ))
          (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))


          (askdisk (dest "SASC_6.0_Disk_1")
              (prompt "Please insert Disk 1 of the SAS/C Development "
                      "System in a drive other than "
                       newdisk
              )
              (help "Replace the Workbench Disk with Disk 1 of the "
                    "SAS/C Development System. The Workbench Disk "
                    "will not be needed again"
              )
          )
          (set error (trap 4
             (copyfiles (source "SASC_6.0_Disk_1:s_wb2.0")
                        (dest "SAS_1:s")
                        (all)
             )
          ))
          (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))

        )

        (
          ; running under 1.3
          (set error (trap 4
             (copyfiles (source ("%s:%s" wbdisk "c/Run"))
                     (dest "SAS_1:c")
             )
          ))
          (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))

          (set error (trap 4
             (copyfiles (source ("%s:%s" wbdisk "c/Stack"))
                     (dest "SAS_1:c")
             )
          ))
          (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))

          (set error (trap 4
             (copyfiles (source ("%s:%s" wbdisk "c/Else"))
                     (dest "SAS_1:c")
             )
          ))
          (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))

          (set error (trap 4
             (copyfiles (source ("%s:%s" wbdisk "c/Type"))
                     (dest "SAS_1:c")
             )
          ))
          (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))

          (set error (trap 4
             (copyfiles (source ("%s:%s" wbdisk "c/Path"))
                     (dest "SAS_1:c")
             )
          ))
          (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))

          (set error (trap 4
             (copyfiles (source ("%s:%s" wbdisk "c/FF"))
                     (dest "SAS_1:c")
             )
          ))
          (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))

          (set error (trap 4
             (copyfiles (source ("%s:%s" wbdisk "c/resident"))
                     (dest "SAS_1:c")
             )
          ))
          (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))

          (set error (trap 4
             (copyfiles (source ("%s:%s" wbdisk "c/EndCLI"))
                     (dest "SAS_1:c")
             )
          ))
          (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))

          (set error (trap 4
             (copyfiles (source ("%s:%s" wbdisk "c/NewCLI"))
                     (dest "SAS_1:c")
             )
          ))
          (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))

          (set error (trap 4
             (copyfiles (source ("%s:%s" wbdisk "c/newshell"))
                     (dest "SAS_1:c")
             )
          ))
          (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))

          (set error (trap 4
             (copyfiles (source ("%s:%s" wbdisk "c/Echo"))
                     (dest "SAS_1:c")
             )
          ))
          (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))

          (set error (trap 4
             (copyfiles (source ("%s:%s" wbdisk "c/Failat"))
                     (dest "SAS_1:c")
             )
          ))
          (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))

          (set error (trap 4
             (copyfiles (source ("%s:%s" wbdisk "c/SetEnv"))
                     (dest "SAS_1:c")
             )
          ))
          (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))

          (set error (trap 4
             (copyfiles (source ("%s:%s" wbdisk "c/CD"))
                     (dest "SAS_1:c")
             )
          ))
          (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))

          (set error (trap 4
             (copyfiles (source ("%s:%s" wbdisk "c/EndIf"))
                     (dest "SAS_1:c")
             )
          ))
          (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))

          (set error (trap 4
             (copyfiles (source ("%s:%s" wbdisk "c/If"))
                     (dest "SAS_1:c")
             )
          ))
          (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))

          (set error (trap 4
             (copyfiles (source ("%s:%s" wbdisk "c/Protect"))
                     (dest "SAS_1:c")
             )
          ))
          (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))

          (set error (trap 4
             (copyfiles (source ("%s:%s" wbdisk "l/Disk-Validator"))
                     (dest "SAS_1:l")
             )
          ))
          (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))

          (set error (trap 4
             (copyfiles (source ("%s:%s" wbdisk "l/Newcon-Handler"))
                     (dest "SAS_1:l")
             )
          ))
          (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))

          (set error (trap 4
             (copyfiles (source ("%s:%s" wbdisk "l/shell-seg"))
                     (dest "SAS_1:l")
             )
          ))
          (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))

          (set error (trap 4
             (copyfiles (source ("%s:%s" wbdisk "l/Ram-Handler"))
                     (dest "SAS_1:l")
             )
          ))
          (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))

          (set error (trap 4
             (copyfiles (source ("%s:%s" wbdisk "devs/ramdrive.device"))
                     (dest "SAS_1:devs")
             )
          ))
          (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))

          (set error (trap 4
             (copyfiles (source ("%s:%s" wbdisk "devs/system-configuration"))
                     (dest "SAS_1:devs")
             )
          ))
          (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))

          (set error (trap 4
             (copyfiles (source ("%s:%s" wbdisk "libs/icon.library"))
                     (dest "SAS_1:libs")
             )
          ))
          (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))

          (set error (trap 4
             (copyfiles (source ("%s:%s" wbdisk "libs/info.library"))
                     (dest "SAS_1:libs")
             )
          ))
          (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))

          (askdisk (dest "SASC_6.0_Disk_1")
              (prompt "Please insert Disk 1 of the SAS/C Development "
                      "System in a drive other than "
                       newdisk
              )
              (help "Replace the Workbench Disk with Disk 1 of the "
                    "SAS/C Development System. The Workbench Disk "
                    "will not be needed again"
              )
          )
          (set error (trap 4
             (copyfiles (source "SASC_6.0_Disk_1:s_wb1.3")
                     (dest "SAS_1:s")
                     (all)
             )
          ))
          (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))

        )
     )

(complete 30)
     (askdisk (dest "SASC_6.0_Disk_1")
              (prompt "Please insert Disk 1 of the SAS/C Development "
                      "System in a drive other than "
                       newdisk
              )
              (help "Replace the Workbench Disk with Disk 1 of the "
                    "SAS/C Development System. The Workbench Disk "
                    "will not be needed again"
              )
     )
     (set error (trap 4
        (copyfiles (source "SASC_6.0_Disk_1:Compiler")
                (dest "SAS_1:sc")
                (all)
        )
     ))
     (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))


     (askdisk (dest "SASC_6.0_Disk_3")
              (prompt "Please insert Disk 3 of the SAS/C Development "
                      "System in a drive other than "
                       newdisk
              )
              (help "Replace the Disk 1 with Disk 3 of the "
                    "SAS/C Development System. "
              )
     )
     (set error (trap 4
        (copyfiles (source "SASC_6.0_Disk_3:Debugger/libs")
                (dest "SAS_1:sc/libs")
                (all)
        )
     ))
     (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))


     (if (= 1 thirddisk)
       (
         (if (>= version version2)
           (
              (set error (trap 4
                 (copyfiles (source "SASC_6.0_Disk_3:s_wb2.0")
                         (dest "SAS_1:s")
                         (all)
              )
           ))
           (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))

           )
           ; else 1.3
           (
              (set error (trap 4
                 (copyfiles (source "SASC_6.0_Disk_3:s_wb1.3")
                         (dest "SAS_1:s")
                         (all)
                 )
              ))
              (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))

           )
         )
       )
     )

     (message ("%s%s%s%s"
               "Insert a new disk in DRIVE "
                newdisk
                ", wait for the disk light to go off, "
                "and click Proceed "
              )
     )
     (working "Formating disk in " newdisk )
     (run ("ram:format <ram:nl_file drive %s name SAS_2 noicons" newdisk))

     (makedir "SAS_2:sc" (safe))
     (makedir "SAS_2:sc/lib" (safe))
     (makedir "SAS_2:sc/Include" (safe))

     (askdisk (dest "SASC_6.0_Disk_2")
              (prompt "Please insert Disk 2 of the SAS/C Development "
                      "System in a drive other than "
                       newdisk
              )
              (help "Insert Disk 2 to continue installation. For best "
                    "results, do not use the drive containing the "
                    "destination disk, "
                    newdisk
                    )
     )
     (set error (trap 4
        (copyfiles (source "SASC_6.0_Disk_2:Libraries/lib")
                (dest "SAS_2:sc/lib")
                (pattern "#?.o")
        )
     ))
     (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))

     (set error (trap 4
        (copyfiles (source "SASC_6.0_Disk_2:Libraries/lib/sc.lib")
                (dest "SAS_2:sc/lib")
        )
     ))
     (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))

     (set error (trap 4
        (copyfiles (source "SASC_6.0_Disk_2:Libraries/lib/scm.lib")
                (dest "SAS_2:sc/lib")
        )
     ))
     (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))


     (askdisk (dest "SASC_6.0_Disk_3")
              (prompt "Please insert Disk 3 of the SAS/C Development "
                      "System in a drive other than "
                       newdisk
              )
              (help "Insert Disk 3 to continue installation. For best "
                    "results, do not use the drive containing the "
                    "destination disk, "
                    newdisk
                    )
     )
     (set error (trap 4
        (copyfiles (source "SASC_6.0_Disk_3:Extra_Utilities/c/scompact")
                (dest "ram:")
        )
     ))
     (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))

     (set error (trap 4
        (copyfiles (source "SASC_6.0_Disk_3:Libraries/lib/amiga_small.lib")
                (dest "SAS_2:sc/lib")
                (newname "amiga.lib")
        )
     ))
     (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))

     (set error (trap 4
        (copyfiles (source "SASC_6.0_Disk_3:Debugger/c")
                (dest "SAS_2:sc/c")
                (all)
        )
     ))
     (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))

(complete 40)
     (working "Installing compacted header files.")
     (run "ram:scompact SASC_6.0_Disk_3:Compiler_Headers/Include SAS_2:sc/Include all")
(complete 50)
     (askdisk (dest "SASC_6.0_Disk_4")
              (prompt "Please insert Disk 4 of the SAS/C Development "
                      "System in a drive other than "
                       newdisk
              )
              (help "Insert Disk 4 to continue installation. For best "
                    "results, do not use the drive containing the "
                    "destination disk, "
                    newdisk
                    )
     )
     (working "Installing compacted header files.")
     (run "ram:scompact SASC_6.0_Disk_4:Compiler_Headers/Include SAS_2:sc/Include all")


(complete 70)
     (if (= 1 thirddisk)
         (
           (message ("%s%s%s%s"
                    "Insert a new disk in DRIVE "
                    newdisk
                    ", wait for the disk light to go off, "
                    "and click Proceed "
                    )
           )
           (working "Formating disk in " newdisk)
           (run ("ram:format <ram:nl_file drive %s name SAS_3 noicons" newdisk))

           (makedir "SAS_3:sc" (safe))

           (askdisk (dest "SASC_6.0_Disk_3")
              (prompt "Please insert Disk 3 of the SAS/C Development "
                      "System in a drive other than "
                       newdisk
              )
              (help "Insert Disk 3 to continue installation. For best "
                    "results, do not use the drive containing the "
                    "destination disk, "
                    newdisk
                    )
           )

           (set error (trap 4
              (copyfiles (source "SASC_6.0_Disk_3:optimizers")
                      (dest "SAS_3:sc")
                      (all)
              )
           ))
           (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))

           (set error (trap 4
              (copyfiles (source "SASC_6.0_Disk_3:Extra_Utilities")
                      (dest "SAS_3:sc")
                      (all)
              )
           ))
           (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))

(complete 80)
           (askdisk (dest "SASC_6.0_Disk_5")
              (prompt "Please insert Disk 5 of the SAS/C Development "
                      "System in a drive other than "
                       newdisk
              )
              (help "Insert Disk 5 to continue installation. For best "
                    "results, do not use the drive containing the "
                    "destination disk, "
                    newdisk
                    )
           )
           (set error (trap 4
              (copyfiles (source "SASC_6.0_Disk_5:Extra_Utilities")
                      (dest "SAS_3:sc")
                      (all)
              )
           ))
           (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))


           (askdisk (dest "SASC_6.0_Disk_6")
              (prompt "Please insert Disk 6 of the SAS/C Development "
                      "System in a drive other than "
                       newdisk
              )
              (help "Insert Disk 6 to continue installation. For best "
                    "results, do not use the drive containing the "
                    "destination disk, "
                    newdisk
                    )
           )
           (set error (trap 4
              (copyfiles (source "SASC_6.0_Disk_6:Extra_Utilities")
                      (dest "SAS_3:sc")
                      (all)
              )
           ))
           (if (> error 0) (message ("Dos Error %ld detected" @ioerr)))
        )
     )
     (complete 99)
     (askdisk (dest "SASC_6.0_Disk_1")
              (prompt "Please Insert Disk 1 of the SAS/C Development System")
              (help "The Installation is complete. Insert Disk 1 in "
                    "any drive and the READ.ME file will be displayed.")
     )
     (if (>= version version2)
        (run "run SASC_6.0_Disk_1:more SASC_6.0_Disk_1:read.me")
      ;else
        (run "ram:run SASC_6.0_Disk_1:more SASC_6.0_Disk_1:read.me")
     )
  )
)


(complete 100)